﻿Imports System.Data.SqlClient
Public Class About
    Inherits Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        If Request.Browser.IsMobileDevice Then
            Response.Redirect("~/About_mobile.aspx")
        End If
        If IsPostBack = False Then
            Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("BooksReviewDBConnectionString1").ConnectionString.ToString)
            Dim SqlString As String = "INSERT INTO Site_Activity(Activity) VALUES (@f1)"
            Dim cmd As SqlCommand = New SqlCommand(SqlString, conn)
            cmd.CommandType = CommandType.Text
            cmd.Parameters.AddWithValue("@f1", "About")
            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()
        End If
    End Sub
End Class